home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / dired-oas.el.z / dired-oas.el
Encoding:
Text File  |  1998-05-21  |  2.2 KB  |  59 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; File:          dired-oas.el
  4. ;; Dired Version: #Revision: 7.9 $
  5. ;; RCS:
  6. ;; Description:   dired odds and sods. Dired functions not usually needed.
  7. ;;                This file is not a reference to the Organization of
  8. ;;                American States.
  9. ;;
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11.  
  12. ;;; Don't require or provide anything, as this file is just an archive.
  13.  
  14. (defun dired-sort-on-size ()
  15.   "Sorts a dired listing on file size.
  16. If your ls cannot sort on size, this is useful as `dired-after-readin-hook':
  17.     \(setq dired-after-readin-hook 'dired-sort-on-size\)"
  18.   (require 'sort)
  19.   (goto-char (point-min))
  20.   (dired-goto-next-file)        ; skip `total' line
  21.   (beginning-of-line)
  22.   (sort-subr t 'forward-line 'end-of-line 'dired-get-file-size))
  23.  
  24. (defun dired-directories-of (files)
  25.   ;; Return unique list of parent directories of FILES.
  26.   (let (dirs dir file)
  27.     (while files
  28.       (setq file (car files)
  29.         files (cdr files)
  30.         dir (file-name-directory file))
  31.       (or (member dir dirs)
  32.       (setq dirs (cons dir dirs))))
  33.     dirs))
  34.  
  35. (defun dired-parse-ls-show ()
  36.   (interactive)
  37.    (let (inode s mode size uid gid nlink time name sym)
  38.      (if (dired-parse-ls)
  39.      (message "%s" (list inode s mode nlink uid gid size time name sym))
  40.        (message "Not on a file line."))))
  41.  
  42. (defun dired-files-same-directory (file-list &optional absolute)
  43.   "If all files in LIST are in the same directory return it, otherwise nil.
  44. Returned name has no trailing slash.  \"Same\" means file-name-directory of
  45. the files are string=.  File names in LIST must all be absolute or all be
  46. relative.  Implicitly, relative file names are in default-directory.  If
  47. optional ABS is non-nil, the returned name will be absolute, otherwise the
  48. returned name will be absolute or relative as per the files in LIST."
  49.   (let ((dir (file-name-directory (car file-list))))
  50.     (if (memq nil (mapcar (function
  51.                (lambda (file)
  52.                  (string= dir (file-name-directory file))))
  53.               file-list))
  54.     nil
  55.       (directory-file-name
  56.        (if (or (not absolute) (and dir (file-name-absolute-p dir)))
  57.        (or dir "")
  58.      (concat default-directory dir))))))
  59.